64'er Special 16/64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64/helpmaker twm

Commodore BASIC | 1990-01-01 | 5.2 KB | 177 lines

100 rem *******************************
110 rem *                             *
120 rem * ak-soft proudly presents :  *
130 rem *                             *
140 rem * >help-maker zu karteiverw.< *
150 rem *                             *
160 rem *       programmed with       *
170 rem *                             *
180 rem *         t w m  v1.0         *
190 rem *                             *
200 rem *    by a.knuepfer            *
210 rem *       auf dem knuell 18     *
220 rem *       2056 glinde           *
230 rem *       tel. [phone]    *
240 rem *                             *
250 rem *******************************
260 :
296 :
297 rem -------------------------------
298 rem  initialisierung
299 :
300 if peek(32168)<>162 or peek(38168)<>150 then load"twm v1.0",8,1
310 sys 32168
320 :
330 poke53280,0 :poke53281,0
395 :
396 :
397 rem ===============================
398 rem  bearbeitungsschleife
399 :
400 (NULL) 1,"dies programm erstellt die help-windows"
402 (NULL) 3,"fuer das hauptprogramm"
404 (NULL) 5,"'karteiverw. twm'."
406 (NULL) 8,10,"alles klar (j/n) ? ",,"jn",1,jn$ :if jn$<>"j" then stop
410 read d1$:if d1$="" then print"[147]fertig !" :end
415 read d0$,d2$
420 read z1,s1,z2,s2,typ,bsc,h$
430 read co,eo,d3
440 (NULL)1,z1,s1,z2,s2,typ,bsc,h$ :(NULL)1,co,eo,d3 :(NULL)1
450 :
460 read z :if z<0 then 500
470 read s,t$
480 if s>127 then (NULL) z,t$ :goto 460
490 (NULL) z,s,t$; :goto 460
495 :
500 (NULL) "@:"+d1$,d0$,d2$
510 (NULL) :(NULL)1
520 goto 410
989 :
990 :
991 rem ===============================
992 rem  daten : name, vorher, nachher
993 rem          z1/s1, z2/s2, typ, bsc
994 rem          header-text
995 rem          farbe, eor, 3d-farbe
996 :
997 rem ----- help-window bei
998 rem        winput-eingaben
999 :
1000 data "help winput",,
1010 data 10,0,24,39,1,0,"[197]ingabe",8,128,
1020 data 1,1,"[155] [195][210][211][210] [204][197][198][212], [210][201][199][200][212], [213][208], [196][207][215][206] [129] [194]ewegen"
1030 data 3,1,"[155] [201][206][211][212], [196][197][204] [129] : [197]infuegen, [204]oeschen
1040 [131] 5,1,"list left$(NULL)(NULL)val for      : atnnfang des asceldes"
1050 [131] 7,1,"list len(NULL)(NULL) for       : left$(NULL)(NULL)val und asceld loeschen"
1060 [131] 9,1,"list (NULL)val(NULL)(NULL)(NULL)(NULL) for    : valingabe beenden"
1070 [131] -1
1996 :
1997 [143] ----- help-window bei
1998 [143]        boxmenu-auswahl
1999 :
2000 [131] "help boxmenu",,
2010 [131] 5,4,19,36,1,0,"peekoxmenue - atnuswahl",8,128,
2020 [131] 1,1,"peekewegen (NULL)ie den (NULL)feil mittels"
2030 [131] 3,1,"list len(NULL)(NULL)(NULL) (NULL)valasc(NULL), (NULL)right$chr$left$(NULL), (NULL)(NULL), str$(NULL)(NULL)(NULL) for"
2040 [131] 5,1,"zu der gewuenschten ascunktion"
2050 [131] 7,1,"und betaetigen (NULL)ie dannlist"
2060 [131] 9,128," (NULL)val(NULL)(NULL)(NULL)(NULL) for."
2070 [131] -1
2996 :
2997 [143] ----- help-window zum
2998 [143]        haupt-boxmenu
2999 :
3000 [131] "help hauptmenu",,"help boxmenu"
3010 [131] 5,2,17,36,1,0,"left$auptmenue",8,128,
3020 [131] 1,1,"list val(NULL)str$val for (NULL)erlassen des (NULL)rogramms"
3030 [131] 3,1,"list (NULL)(NULL)atnstr$ for (NULL)aden einer neuen (NULL)artei"
3040 [131] 5,1,"list valstr$right$(NULL) for peekearbeiten der (NULL)artei"
3050 [131] 7,1,"list (NULL)atn(NULL)val for atnbspeichern der (NULL)artei"
3060 [131] -1
3996 :
3997 [143] ----- help-window zum
3998 [143]        edit-boxmenu
3999 :
4000 [131] "help editmenu",,"help boxmenu"
4010 [131] 4,0,21,39,1,0,"valstr$right$(NULL)-(NULL)enue",8,128,
4020 [131] 1,1,"list _ for (NULL)erlassen der valstr$right$(NULL)-(NULL)outine"
4030 [131] 3,1,"list atnval(NULL)str$val(NULL)(NULL) for atnendern eines str$atensatzes"
4040 [131] 5,1,"list (NULL)(NULL)val(NULL)lenleft$ for (NULL)oeschen eines str$atensatzes"
4050 [131] 7,1,"list << for list < for peeklaettern nach vorne"
4060 [131] 8,1,"list >> for list > for peeklaettern nach hinten"
4070 [131] 10,1,"list atn(NULL)asc(NULL)valchr$ for atnnfuegen eines str$atensatzes"
4080 [131] 12,1,"list (NULL)(NULL)(NULL)(NULL) for (NULL)artei alphabetisch sorieren"
4090 [131] -1
4995 :
4996 [143] ----- help-window zur
4997 [143]        definition der maske
4998 :
4999 [143] ----- seite 1
5000 [131] "help maskdef 1",,"help maskdef 2"
5010 [131] 6,1,24,38,1,0,"str$efinition der valright$(NULL)chr$atnpeekval(NULL)atn(NULL)(NULL)val 1",8,128,
5020 [131] 1,1,"list (NULL)egen (NULL)ie eine valingabemaske an ! for"
5030 [131] 3,1,"valine solche (NULL)aske besteht aus"
5040 [131] 5,1,"valingabefeldern und aus (NULL)exten,"
5050 [131] 7,1,"die die ascunktion der valingabefelder"
5060 [131] 9,1,"angeben."
5070 [131] 11,1,"peeksp.                              for"
5080 [131] 12,6," cont (NULL)ame  listtotototototototototototototototototototo for"
5090 [131] 13,6,"                             for"
5100 [131] -1
5198 :
5199 [143] ----- seite 2
5200 [131] "help maskdef 2","help maskdef 1","help maskdef 3"
5210 [131] 4,1,24,38,1,0,"str$efinition der valright$(NULL)chr$atnpeekval(NULL)atn(NULL)(NULL)val 2",8,128,
5220 [131] 1,1,"(NULL)um valrstellen der (NULL)aske stehen"
5230 [131] 3,1,"right$hnen alle (NULL)asten zur (NULL)erfuegung."
5240 [131] 5,1,"valin valingabefeld kennzeichnen (NULL)ie"
5250 [131] 7,1,"durch einen (NULL)trich aus"
5260 [131] 9,1,"list len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val-'@' = 'to' -(NULL)eichen for."
5270 [131] 11,1,"valin zusaetzliches peekenutzen von"
5280 [131] 13,1,"verschiedenen ascarben zur left$ervor-"
5290 [131] 15,1,"hebung ist empfehlenswert."
5300 [131] -1
5398 :
5399 [143] ----- seite 3
5400 [131] "help maskdef 3","help maskdef 2",
5410 [131] 10,1,24,38,1,0,"str$efinition der valright$(NULL)chr$atnpeekval(NULL)atn(NULL)(NULL)val 3",8,128,
5420 [131] 1,1,"(NULL)ie beenden die str$efinition mit"
5430 [131] 3,1,"der (NULL)aste list f3 for."
5440 [131] 5,1,"str$as (NULL)ystem speichert die erstellte"
5450 [131] 7,1,"(NULL)aske ab, das ascormat der (NULL)artei"
5460 [131] 9,1,"ist damit endgueltig festgelegt."
5470 [131] -1
5996 :
5997 [143] ----- help-window zur
5998 [143]        karteinamen-menuauswahl
5999 :
6000 [131] "help menu",,
6010 [131] 10,0,24,39,1,0,"(NULL)arteinamen - atnuswahl",8,128,
6020 [131] 1,1,"list len(NULL)(NULL), lenstr$(NULL)(NULL)(NULL) for peekewegen des atnuswahl-"
6030 [131] 2,14,"balkens nach oben"
6040 [131] 3,14,"und unten"
6050 [131] 5,1,"list left$(NULL)(NULL)val for       chr$anz nach oben"
6060 [131] 7,1,"list len(NULL)(NULL) for        atnn den atnnfang der (NULL)iste"
6070 [131] 9,1,"list (NULL)val(NULL)(NULL)(NULL)(NULL) for     atnuswahl beenden"
6080 [131] -1
6996 :
6997 [143] ----- help-window zur
6998 [143]        karteikarten-eingabe
6999 :
7000 [131] "help medit",,"help winput"
7010 [131] 4,2,24,37,1,0,"(NULL)arteikarten - valingabe",8,128,
7020 [131] 1,1,"ascuer die valingabe eines einzelnen"
7030 [131] 3,1,"asceldes siehe (NULL)eite 2."
7040 [131] 5,1,"(NULL)it list (NULL)val(NULL)(NULL)(NULL)(NULL) for gelangen (NULL)ie zum"
7050 [131] 7,1,"folgenden valingabefeld,"
7060 [131] 9,1,"mit list f3 for zum vorherigen."
7070 [131] 11,1,"peekeim letzen valingabefeld bewirkt"
7080 [131] 13,1,"list (NULL)val(NULL)(NULL)(NULL)(NULL) for ein peekeenden der"
7090 [131] 15,1,"(NULL)arteikarteneingabe."
7100 [131] -1
7996 :
7997 [143] ----- help-window zur
7998 [143]
7999 :
8000 [131] ""